Filename	(eval 1109)[/usr/share/perl5/CGI.pm:932]
Statements	Executed 20 statements in 75µs
Eval Invoked At	/usr/share/perl5/CGI.pm line 932
Sibling evals	1, 2, 3, 4

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	CGI::::deleteCGI::delete

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package CGI; #### Method: delete
2					# Deletes the named parameter entirely.
3					####
4					sub delete {
5	2	12µs	6	15µs	my($self,@p) = self_or_default(@_); # spent 15µs making 6 calls to CGI::self_or_default, avg 3µs/call
6	2	30µs	6	61µs	my(@names) = rearrange([NAME],@p); # spent 61µs making 6 calls to CGI::Util::rearrange, avg 10µs/call
7	2	2µs			my @to_delete = ref($names[0]) eq 'ARRAY' ? @$names[0] : @names;
8	2	500ns			my %to_delete;
9	2	2µs			for my $name (@to_delete)
10					{
11	2	900ns			CORE::delete $self->{param}{$name};
12	2	400ns			CORE::delete $self->{'.fieldnames'}->{$name};
13	2	6µs			$to_delete{$name}++;
14					}
15	2	18µs	6	32µs	@{$self->{'.parameters'}}=grep { !exists($to_delete{$_}) } $self->param(); # spent 32µs making 6 calls to CGI::param, avg 5µs/call
16	2	2µs			return;
17					}
18
19					;